home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
gradat1a
/
form1.frm
next >
Wrap
Text File
|
1999-10-03
|
25KB
|
693 lines
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Gradation 2.0 (Second Edition) - I wish this program can help you."
ClientHeight = 8025
ClientLeft = 3675
ClientTop = 1290
ClientWidth = 7125
ClipControls = 0 'False
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8025
ScaleWidth = 7125
Begin VB.Frame Frame4
Caption = "Resolution"
Height = 1335
Left = 4440
TabIndex = 28
Top = 6120
Width = 2655
Begin VB.HScrollBar ResCircular2
Height = 255
Left = 840
Max = 40
Min = 21
TabIndex = 38
Top = 720
Value = 21
Width = 1695
End
Begin VB.HScrollBar ResCircular
Height = 255
Left = 840
Max = 15
Min = 2
TabIndex = 30
Top = 480
Value = 2
Width = 1695
End
Begin VB.HScrollBar ResLinear
Height = 255
Left = 840
Max = 52
Min = 23
TabIndex = 29
Top = 240
Value = 23
Width = 1695
End
Begin VB.Label Label7
Caption = "Circular2"
Height = 255
Left = 120
TabIndex = 37
Top = 720
Width = 855
End
Begin VB.Label Label5
Caption = "Circular"
Height = 255
Left = 120
TabIndex = 32
Top = 480
Width = 615
End
Begin VB.Label Label4
Caption = "Linear"
Height = 255
Left = 120
TabIndex = 31
Top = 240
Width = 1455
End
Begin VB.Label Label6
Caption = "High Low"
Height = 195
Left = 840
TabIndex = 33
Top = 960
Width = 1695
End
End
Begin VB.PictureBox Picture1
Height = 135
Left = 5160
ScaleHeight = 75
ScaleWidth = 1875
TabIndex = 26
Top = 7800
Width = 1935
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Left = 0
Top = 0
Visible = 0 'False
Width = 15
End
End
Begin VB.Frame Frame3
Caption = "Style"
Height = 1335
Left = 2760
TabIndex = 21
Top = 6120
Width = 1575
Begin VB.OptionButton OptionCircular2
Caption = "Circular 2"
Height = 255
Left = 120
TabIndex = 36
Top = 720
Width = 1335
End
Begin VB.OptionButton OptionBox2
Caption = "Box 2"
Height = 255
Left = 720
TabIndex = 35
Top = 960
Width = 735
End
Begin VB.OptionButton OptionBox
Caption = "Box"
Height = 255
Left = 120
TabIndex = 34
Top = 960
Width = 975
End
Begin VB.OptionButton OptionCircular
Caption = "Circular"
Height = 255
Left = 120
TabIndex = 23
Top = 480
Width = 975
End
Begin VB.OptionButton OptionLinear
Caption = "Linear"
Height = 255
Left = 120
TabIndex = 22
Top = 240
Value = -1 'True
Width = 975
End
End
Begin VB.Timer Timer1
Interval = 50
Left = 6120
Top = 7080
End
Begin VB.Frame Frame2
Caption = "Sample ( Vertical Style )"
Height = 1335
Left = 120
TabIndex = 19
Top = 6120
Width = 2535
Begin VB.PictureBox Sample
AutoRedraw = -1 'True
ClipControls = 0 'False
Height = 975
Left = 120
MousePointer = 2 'Cross
ScaleHeight = 915
ScaleWidth = 2235
TabIndex = 20
Top = 240
Width = 2295
End
End
Begin VB.Frame Frame1
Caption = "Second Color"
Height = 1335
Index = 1
Left = 0
TabIndex = 10
Top = 4680
Width = 7095
Begin VB.HScrollBar SecondScroll
Height = 255
Index = 0
Left = 120
Max = 255
TabIndex = 15
Top = 240
Width = 3495
End
Begin VB.CommandButton SecondDialog
Caption = "Dialog Box"
Height = 975
Left = 6000
TabIndex = 14
Top = 240
Width = 975
End
Begin VB.PictureBox SecondSample
AutoRedraw = -1 'True
BackColor = &H00000000&
Height = 975
Left = 4920
ScaleHeight = 915
ScaleWidth = 915
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.HScrollBar SecondScroll
Height = 255
Index = 1
Left = 120
Max = 255
TabIndex = 12
Top = 600
Width = 3495
End
Begin VB.HScrollBar SecondScroll
Height = 255
Index = 2
Left = 120
Max = 255
TabIndex = 11
Top = 960
Width = 3495
End
Begin VB.Label SecondLabel
Caption = "Red : 0"
Height = 255
Index = 0
Left = 3720
TabIndex = 18
Top = 240
Width = 1095
End
Begin VB.Label SecondLabel
Caption = "Green : 0"
Height = 255
Index = 1
Left = 3720
TabIndex = 17
Top = 600
Width = 1095
End
Begin VB.Label SecondLabel
Caption = "Blue : 0"
Height = 255